1 символ равен одному байту, значит надо сосчитать количество символов в этой фразе - пробелы и знаки припинания считаем:
43 * 1 = 43
ответ: 43 байта
Var
a, b, c, d, n : integer;
begin
write('введите первое число ');
readln(a);
write('введите второе число ');
readln(b);
write('введите третье число ');
readln(c);
write('введите четвёртое число ');
readln(d);
n:=a;
if b>n then n:=b;
if c>n then n:=c;
if d>n then n:=d;
writeln('Большее из чисел равно ', n);
end.
Может быть это - алгоритм?
Program pascal;
var s:string; n,i:integer;
begin
writeln('Daite frazu '); readln(s);
writeln('Daite N'); readln(n);
for i:=1 to n do writeln(s);
readln;
end.
this program will show any phrase you will indicate for N times you want