Кнопка это insert а краткая запись соответственно ins
begin
writeln('Сдача с 1000р при покупке 3 кг и 500г по цене 80 за кг = ', (1000 - (3.5 * 80)):2:2);
end.
Точно не уверен но вроде так:
var
s:real;
begin
writeln ('Введите сумму покупки: ');
readln(s);
if s>1000 then
begin
writeln('Сумма покупки с учётом скидки: ',s*0.9:0:2,' руб.');
end
else
writeln('Сумма покупки: ',s:0:2,' руб.');
end.
Ответ:
Объяснение:
var
a, b, c:real;
s, per:real;
p:real;
begin
a:=3;
b:=4;
c:=sqrt((a*a) + (b*b));
per:=a+b+c;
p:=per/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('P = ', per);
writeln('S = ', s);
end.