Запусти Паскаль и введи программу: var a, b, c:integer; begin a:=−9; b:=abs(a); writeln('abs(−9)=', b); c:=sqr(b); writeln('sqr(b)=', c); c:=sqr(b+b); writeln('sqr(b+b)=', c); end. При запуске программы вывод на экран: abs(−9)= sqr(b)= sqr(b+b)=

abs(−9)=9

sqr(b)=81

sqr(b+b)=324

Информацио́нные техноло́гии  — процессы, методы поиска, сбора, хранения, обработки, предоставления, распространения информации и осуществления таких процессов и методов

Информационная система (ИС) — система, предназначенная для хранения, поиска и обработки информации, и соответствующие организационные ресурсы (человеческие, технические, финансовые и т. д.),

Информационный процесс — процесс получения, создания, сбора, обработки, накопления, хранения, поиска, распространения и использования информации

Как-то так var a,b,c,h,p,s:real; var ch:char; var f:boolean;
begin
repeat
write('Êàê ñ÷èòàåì ïëîùàäü? 1-Ïî Ãåðîíó, 2-÷åðåç ïîëîâèíó ïðîèçâåäåíèÿ îñíîâàíèÿ íà âûñîòó: ');
readln(ch);
if ch='1' then begin
write('a='); read(a); write('b='); read(b); write('c='); read(c);
p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Ïëîùàäü ðàâíà ',s); f:=true;
end
else if ch='2' then begin
write('a='); read(a); write('h='); read(h);
writeln('Ïëîùàäü ðàâíà ',0.5*h*a);
f:=true;
end
else begin cls; writeln('Îòâåò ôèãîâûé! Åùå ðàçîê: 1-Ïî Ãåðîíó, 2-÷åðåç ïîëîâèíó ïðîèçâåäåíèÿ îñíîâàíèÿ íà âûñîòó: '); end;
until f;
end.