Var
a,b,c,d:integer;
Begin
writeln('Введите цену тетради, карандаша и линейки соответственно');
read(a,b,c);
d:=a+b+c;
if d>200 then writeln('Баланс превышен');
End.
Var k,sum:integer;
begin
sum:=0;
for k:=50 to 100 do
if((k mod 2 = 0) and (k mod 3 =0)) then sum:=sum+k;
writeln(sum);
end.
Начало
ввод a,b,c;
d=a;
если b>d тогда d=b
если c>d тогда d=c
вывод d;
конец
что-то вроде этого
все решения происходят в мозговом центре