Решение заданиий 2 и 3 - в файлах.
вроде-бы это векторная графика;
различия
на распечатанном рисунке не отоброзился зеленый треугольник, но появились какие-то линия которых не было
16дней так как в день по 0,5в день от сюда ввывод
var a:string;
begin
Writeln('В каком году началась Великая Отечественная война?');
Readln(c);
if c = '1945' then Writeln ('Правильно!')
else Writeln('Вы ошиблись, Великая Отечественная война началась в 1945 году');
end.