4. Складіть проект, у якому виконавець намалює відрізок завдовж- ки 50 кроків синім кольором, якщо натиснуто клавішу стрілкавправо, або намалює відрізок завдовжки 100 кроків червонимкольором, якщо натиснуто клавішу стрілка вниз. Збережіть про-ект у вашій папці у файлі з іменем завдання 3.3.7.ОЧНЬ ЕСЛИ ЧТО МОГУ И БОЛЬШЕ СТ 109 ИНФОРМАТИКА 6 КЛАСС​

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

№1
begin
  var n:=ReadInteger('Введите двухзначное целое:');
  (var p,var q):=(n div 10,n mod 10);
  if (p*q) mod 5=0 then Writeln('Да')
  else Writeln('Нет')
end.

№2
begin
  var n:=ReadInteger('Введите двухзначное целое:');
  (var p,var q):=(n div 10,n mod 10);
  Writeln(Max(p,q)*2)
end.

№3
begin
  var n:=ReadInteger('Введите двухзначное целое:');
  (var p,var q):=(n div 10,n mod 10);
  if p.IsEven then p*=3;
  if q.IsEven then q*=3;
  Println(p,q)
end.