- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
{pascal}
{$M 65520,0,10000}
program govnokod;
a:word;
begin
repeat
writeln('кто считает что он дебил нажмите 1, кто наоборот 2');
readln(a);
if a=1
then
writeln('да ты прав');
readln
else
writeln('да нет ты не понял, надо нажать 1');
until a=1
end.
я придумал программу
правда же я остроумный?
Афтар эта ты нипонел руский езык