1) Создать, редактировать, копировать...
2) Переименовать, переместить, удалить...
Большую часть действий можно производить и над тем, и над другим.
Var
a, b: integer;
begin
a := Random(10);
b := Random(10);
write(a, ' * ', b, ' = ');
a := a * b;
readln(b);
if a = b then writeln('Правильно')
else writeln('Не верно. Правильный ответ ', a);
end.
Письмо Пете
Грамота
12 меньше 13
Письмо_Пете
Что?
Ура!
Ку-Ку
Program abitura;
Uses Crt;
var n,i,r,n1,n2,n3:integer;
begin
clrscr;
write('Введите количество абитуриентов:');
readln(n);
for i:=1 to n do
begin
writeln('Абитуриент номер ' ,i );
write('Введите оценку за первый экзамен');
readln(n1);
write('Введите оценку за второй экзамен');
readln(n2);
write('Введите оценку за третий экзамен');
readln(n3);
r:=n1+n2+n3;
if (r>=13) then writeln('Вы зачислены на дневное отделение ');
if (r>10) and (r<12) then writeln('Вы зачислены на вечернее отделение ');
if (r>=8) and (r<=9) then writeln('Вы зачислены на заочное отделение ');
if (r<8) then writeln('Вам отказанно в зачислении ! ');
end;
readkey;
end.