Дана программа:

Program Primer;
Var
A,result : real;
Begin
Writeln('Введите значения переменной A');
Write('A=');
Readln(A);
Result := sqr((5+A)*6);
Writeln ('sqr((5+A)*6)', result:8:0);
Readln;
End.

Запусти Паскаль, введи данную программу, получи результат, если A=3.
(В окошко для ответа запиши только числовое значение!)

ответ:

1.
var x,y:integer;
begin
write('x = ');
readln(x);
if x>0 
 then y:=1
 else if x=0 then y:=0 else y:=-1;
writeln('y = ',y);
end.

Пример:
x = -5
y = -1

2.
var a,b,c,x1,x2,d:real;
begin
writeln('Введите a, b, c:');
readln(a,b,c);
d:=b*b-4*a*c;
if d>0
 then begin
      x1:=(-b+sqrt(d))/(2*a);
      x2:=(-b-sqrt(d))/(2*a);
      writeln('x1 = ',x1,' x2 = ',x2);
      end
  else if d=0 then begin
                   x1:=-b/(2*a);
                   writeln('x = ',x1);
                   end
               else writeln('Корней нет');
end. 

Пример:
Введите a, b, c:
2 5 -3
x1 = 0.5 x2 = -3

3.
var a,b,c:real;
begin
writeln('Введите a, b, c:');
readln(a,b,c);
if (a<=b)and(b<=c)
 then begin
      b:=a; c:=a;
      end
 else begin
      a:=-a; b:=-b; c:=-c; 
      end;
writeln('a = ',a,' b = ',b,' c = ',c);
end. 

Пример 1:
Введите a, b, c:
2 5 9
a = 2 b = 2 c = 2

Пример 2:
Введите a, b, c:
2 9 5
a = -2 b = -9 c = -5

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
function FS(a,b:real):=0.5*a*b;
begin
  var a,b:real;
  Write('Катеты первого треугольника: '); Read(a,b);
  var S1:=FS(a,b);
  Write('Катеты второго треугольника: '); Read(a,b);
  var S2:=FS(a,b);
  if S1>S2 then Writeln('Площадь первого треугольника больше')
  else
    if S1<S2 then Writeln('Площадь второго треугольника больше')
  else Writeln('Площади треугольников равны')
end.

Тестовое решение
Катеты первого треугольника: 4.18 6
Катеты второго треугольника: 5.4 3.9
Площадь первого треугольника больше