Ну 20 строк и 5 столбцов но я не уверен на 100%
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
1) y:= sin(sqr(x)+sqr(1));
2) y:= sqrt((sqr(x)*x+sqr(1)*1)/x);
3) y:= sqrt((sin(x)+abs(x))/abs(sqr(x)+sqr(2)));