const n=5;
a:array[1..n] of string = ('Москва','Владимир','Воронеж','Архангельск','Екатеринбург');
var i,m,mi: integer;
begin
m:=length(a[1]);
mi:=1;
for i:=2 to n do if length(a[i])>m then
begin
m:=length(a[i]);
mi:=i
end;
writeln;
writeln(a[mi])
end.
Var
i, k, c, tetka1, tetka2: integer;
begin
readln(k);
readln(c);
tetka1 := 0;
tetka2 := 0;
for i:=1 to 3*60 do
begin
inc(tetka1, k);
inc(tetka2, c);
end;
if tetka1 > tetka2 then
writeln('Первая тётка говорит больше на ', tetka1 - tetka2, ' слов')
else
if tetka1 < tetka2 then
writeln('Вторая тётка говорит больше на ', tetka2 - tetka1, ' слов')
else
writeln('Обе тётки болтают с одинаковой эффективностью');
<span>end.</span>
Program Zadacha1;
Var ves, rost, optVes:integer;
Begin
write('введите массу тела');
read(ves);
write('введите рост в см');
read(rost);
optVes:=rost-100;
if ves>optVes then write('вам необходимо похудеть на', abs(optVes-ves) );
if ves<optVes then write('вам необходимо поправиться на', abs(optVes-ves) );
if ves=optVes then write ('ваш вес оптимальный')
End.