Var m,k,r:integer;
procedure buy(var m,k,r:integer);
begin;
if k<=m then
begin;
m:=m-k;
inc(r);
buy(m,k,r);
end;
end;
begin;
write('Введите сколько у Пети рублей:');
readln(m);
write('Введите стоимость мороженого:');
readln(k);
buy(m,k,r);
write('Всего:',r);
<span>end.</span>
Задача на логику, простая же, зачем тут выкладывать?
Ложно высказывание для имени Вера, потому что оно не подходит под обе части высказывания.
var
a, b: real;
begin
writeln('Введите 2 числа');
readln(a, b);
if a > b then
begin
a:= a + 3;
b:= b - 5;
end;
if a < b then
begin
a:= a - 5;
b:= b + 3;
end;
writeln('a = ', a, ', b = ', b);
end.
Скинь фотографию чтобы понять а то так не понятно