Var a,n,x,m,max: Integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(n);
writeln('Введите 3 число');
readln(x);
writeln('Введите 4 число');
readln(m);
max:=a;
if max < n then max:=n;
if max < x then max:=x;
if max < m then max:=m;
writeln(max);
end.
Информационно моделью могут служить изображения фильмов, видео и т.д., знаки (текст например), графические модели ( график чертеж), комбинированные изображения ( карты)
А вот и нет! Они называются Croutons! Да, точно! Они называются Croutons!
Var n, f, o: string; a, i: integer;
begin
write('Введите фамилию ');
Readln(f);
write('Введите имя ');
Readln(n);
write('Введите отчество ');
Readln(o);
a := length(n) + length(f) + length(o);
Writeln('Длина имени, фамилии и отчества равна ', a);
Writeln('Инициалы ', f[1], '. ', n[1], '. ', o[1], '. ');
a := 0;
for i := 1 to length(f) do
if f[i] = 'и' then a := a + 1;
Writeln('Количество букв и в фамилии ', a);
<span>end.</span>