Смотря какой файл, текстовый txt
Var
n: integer;
begin
readln(n);
writeln((n mod 2 = 0) and (n div 10 > 0) and (n div 100 = 0));
end.
Program z;
var
n,a,s:integer;
begin
n:=20; //Стоимость ручки
Writeln('Сколько ручек вы хотите купить?');
readln(a);
s:=n*a;
writeln('Стоимость покупки ',s,' руб');
end.
Var
A,B:integer;
Begin
Write('Введите два числа: ');ReadLn(A,B);
if A<B then Write(A)
else Write(B)
End.