Решите любые сколько знаете от 3х и более . Просто запишите список команд в ответе или скриншот в паскале , главное чтоб я видел как записать.

1. var x,y:real; begin write('x = '); readln(x); y:=7*x+5; writeln('y = ',y); end. Пример: x = 9 y = 68 5. var a,b,c:real; begin write('a = '); readln(a); write('b = '); readln(b); c:=sqrt(a*a+b*b); writeln('c = ',c); end. Пример: a = 3 b = 4 c = 5 10. var a,b,c,h,p:real; begin write('a = '); readln(a); write('b = '); readln(b); write('h = '); readln(h); c:=sqrt(((a-b)/2)*((a-b)/2)+h*h); p:=a+b+2*c; writeln('p = ',p); end. Пример: a = 12 b = 6 h = 4 p = 28