program task1;
var a,b,s:real;
begin
readln(a);
readln(b);
s:=a*b;
writeln('Площадь: ', s);
end.
решение от Тутути не верно, S=a*b
Если Полине действительно не пришлось пересаживаться, то на ее месте может сидеть только Оля.
<span>хранение, обработка и передача информации</span>
Uses crt;
var a,b: Integer;
Begin
Write('Введите целое число: ');
Read a;
While a>0 do
Begin
b:=b+a mod 10;
a:=a div 10;
End;
Writeln('Сумма цифр введённого числа равна ', b);
End.