program task1;
var a,b,s:real;
begin
readln(a);
readln(b);
s:=a*b;
writeln('Площадь: ', s);
end.
решение от Тутути не верно, S=a*b
Поставь мне благодарность и пять звёзд)))) и тогда я напишу ответ
Если я верно понял задание, то это так:
x = 15.1
z = 65.3
y = (x + 1) / 5 + (z + 1)^2
disp(y)
program abc;
var a,b,c,s: integer;
begin
s:=0;
writeln ('Введите двузначное число');
readln(a);
b:=a div 10;
c:= a mod 10;
s:= b + c;
writeln ('Сумма цифр вашего числа = ',s);
end.