Какой вопрос, такой ответ (да простят меня модераторы):
Код:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a:integer;
begin
WriteLn('Мегатест по физике!!!!!');
WriteLn;
WriteLn;
WriteLn('Ускорение свободного падения на Земле равно:');
WriteLn('1. 9,8 кг');
WriteLn('2. 9,8 м.кв.');
WriteLn('2. 9,8 км/с');
WriteLn('4. 9,8 м/с.кв.');
WriteLn('5. 9,8 литров');
ReadLn(a);
if a=4 then
WriteLn('Ай, молодца!!!')
else
WriteLn('Убей сибя ап стену!!!');
ReadLn;
end.