Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Помогите с информатикой

Ответ оставил Гость

Var
a,b,c,z:integer;
Begin
a:=random(100)+1;
b:=random(100)+1;
if b>a then 
Begin
c:=a;
a:=b;
b:=c;
End;
c:=a-b;
Writeln(Сколько будет , a,-,b);
Readln(z);
if z=c then Writeln(Молодец)
else Writeln(Холодец ,a,-,b,=,c)
End.