Впрограмме паскаль нужно ввести высоту и ширину стены, также ввести стоимость длину и ширину обоев. вывести сколько рулонов потребуется на одну стену. и в этой же программе вывести сколько будет стоить столько рулонов.

program pr1;

var

a1,b1,a2,b2,k,c,s1,s2,sum: ineger;

begin

//

// тут ввод даных a1,b1 - стена; a2,b2 - обои; c- цена за 1 рулон, sum-сума;

// 

k: =1;

s1: =a1*b1;

s2: =a2*b2;

while s2< s1 do begin

s2: =s2*k;

k: =k+1;

end;

sum: =c*k;

writeln(k,sum);

end.

//как то так!

емкость неформатированного диска больше информационной емкости доступной для записи данных, т.е. отформатированного диска.

на pascal:

program sonik;

uses crt;

var a,b,c: string;

begin

readln (a);   readln (b);   readln (c);

writeln (' фигуры: ',a,b,c);

end.