Укажите тип файла fact. jpeg 1)текстовый 2)графический 3)исполняемый 4)web-страница

революция 1917 года и великая отечественная война (1941-1945)

var a,res: integer;

begin

writeln('введите число');

readln(a);

res: =sqr(a);

writeln('квадрат числа,'a', равен,'res',');

readln;

end.