Var
s: string;
begin
writeln('Введите ваше имя');
readln(s);
writeln('Здравствуйте, ',s);
writeln('Сегодня хорошая погода')
end.
16 бит=2 байта....................
program q;
var
a: integer;
b: real;
begin
b := 0;
read(a);
b := (a div 10 + a mod 10) / 2;
writeln(b);
end.
На Pascal'e
*Проверил*
===== PascalABC.NET =====
begin
Range(1582, 3000)
.Where(y -> (y mod 100 = 0) and (y mod 400 <> 0))
.Print
end.