Первое берем две ячейки например a,b вводим в а и б числа потом сравниваем с помощью команды if
Напалеон напал на Москву 1812году
program raf105;
const a=3;
var S,P:integer;
begin
S:= a*a;
P:= a*4;
writeln('Площадь: ',S);
writeln('Периметр: ',P);
end.
<u><em>Язык PascalABC</em></u>
Uses crt;
<span>var a,b,rez:real; </span>
<span>begin </span>
<span>clrscr; </span>
<span>readln(a,b); </span>
<span>Writeln('Summa - ',a*a+b*b:0:2); </span>
<span>writeln('Raznost - ',a*a-b*b:0:2); </span>
<span>writeln('Proizv - ',a*a*b*b:0:2); </span>
<span>writeln('Chastnoe - ',a*a/(b*b):0:2); </span>
<span>readkey; </span>
<span>end.</span>
Говорит декан факультета информатики Сание<span> Мамбетовна. Ты отчислена! Завтра же зайди в деканат!</span>