program dybko4 mode objfpc uses IFDEF UNIX IFDEF UseCThreads cthreads

program dybko4;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
  var c,d,a,res:integer;
begin
   writeln ('Тест');
  writeln ('С помощью какой программы можно создавать презентации');
  Writeln ('1.Word 2.Power Point 3.PaintNet');
   readln (a);
   if a=2 then res:=res + 2;
   if(a=1) or (a=3) then
   writeln ('Вы не правы')
   else
 writeln ('Верный ответ');
  readln ();
  writeln ('Зачем нужен Wifi?');
  Writeln ('1.Не знаю 2.Для подключения к сети  3.Для запуска компьютера ');
   readln (c);
   if c=2 then res:=res +2;
   if(c=1) or (c=3) then
   writeln ('Вы не правы')
   else
 writeln ('Верный ответ');
   if(res=0)  then
   writeln ('Вы мало знаете о компьютерах');
   if(res=2) then
   writeln ('Вы достаточно знаете о компьютерах');
if(res=4) then
   writeln ('Вы практически профи');
  readln ();
end.