A=(a, b) приписать справа к слову p столько палочек, сколько всего символов входит в p (например: babb -> babb)

help!

программа на языке pascal, успехов в учебе.

program pr;

var n,m,z,k,i,vm: integer;

begin

readln (n,m,z);

vm: =n*60+m;

i: =1;

while i< =vm do

begin

k: =k+1;

i: =i+z;

end;

writeln (k);

readln;

end.

2000*2000=4000000 пикселей=4 мегапикселей

var m,r: real;

begin

writeln('вычисление расстояния между населенными пунктами.') ; writeln('ведите исходные данные: '); writeln('масштаб карты (количество километров в одном сантиметре)  > ');

read(m); writeln('расстояние между двумя точками, изображающими населенные пункты (см)  > ');

read(r); writeln('расстояние между населенными пунктами ', m*r,' км.');

end.

program summa;

uses crt;

var  i : integer; sum: real; beginsum: =0; for i: =1 to 20 do beginsum: =sum+ sqr(i); end; writeln('summa =', sum); end.

вот тебе программа на паскале . она находит сумму квадратов всех натуральных чисел от 1 до 20. вот блок схема. блок схему скину на мыло. напиши мне его и я тебе скину