While (условие) do
begin
(пишем что выполнить)
end;
Var x,y: real;
begin
readln(x);
if x<0 then y:=2*sqr(x)-12*x else
if x>0 then y:=sqr(cos(x));
writeln(y);
end.
Циркуль, линейка и различные цвета, например карандаши (чтобы не сливалось то, что нужно отобразить в диаграмме)
Var
a,c:integer;
b:real;
begin
readln(a,c);
b:=sqrt(c*c-a*a);
writeln('Sabc ',a*b/2);
end.