Зло проиграет всегда ведь наш девиз добрата!!
Var
k: integer;
a, s: real;
begin
write('Начальная стоимость: ');
readln(a);
write('Число проданных газет: ');
readln(k);
if k <= 50 then s := k * a
else
begin
s := 50 * a;
s := s + (k - 50) * a * 1.2;
end;
writeln('Выручка составила ', s, ' руб.');
end.
512*2+64*0+8*1+1*4 = 1036
343*2+49*0+7*1+1*4 = 697
216*2+36*0+6*1+1*4 = 442
125*2+25*0+5*1+1*4 = 259
... Каждый начал приводить аркументы, мол, я лучше потому-то - потому-то.
Без клавиатуры мы бы не смогли печатать, то есть не смогли бы передавать информацию на компьютер, без монитора мы бы не смогли видеть эту самую информацию, без памяти мы бы не могли сохранить ее (информацию), а без процессора и вовсе компьютер не стал бы работать.
И клавиатура, и монитор, и память, и процессор - все они неотъемлимые части компьютера, без них он бы не работал.
как вариант:
var
a, b, h : integer;
begin
a := readInteger('введите a = ');
b := readInteger('введите b = ');
h := readInteger('введите h = ');
writeln('площадь поверхности стен равна ', 2*a*h+2*b*h);
end.