Ответ:
в описании
Объяснение:
1)
var
y,a,b:real;
begin
writeln('Введите значение: а=');
readln(a);
writeln('Введите значение: b=');
readln(b);
y := 5*(a+2*b);
writeln('Ответ: y=',y);
end.
2)var
n,m,x:real;
begin
writeln('Введите количество яблок с 1 дерева в кг');
readln(n);
writeln('Введите значение во сколько яблок больше со 2 дерева чем с 1 в кг');
readln(m);
x := n+m*n+(m*n-20);
writeln('Ответ: Всего яблок = ',x,'кг');
end.
3)var
a,p:real;
begin
writeln('Введите значение стророны');
readln(a);
p:= 3*a;
writeln('Перимитр равностороннего трекгольника Р = ',p);
end.
4) погано розумію Украінську, шо там треба?