Вводятся два числа найти разность этих чисел. ответ можно записать в строчку

Cls input a input b c=a-b print c end

Program zadacha_1; var a,b,rez: real; //я не случайно объявил типа real, поскольку в не сказно, какие числа вводятся: целые, или дробные begin writeln('введите два числа'); readln(a,b); rez: =a-b; writeln('разность: ',rez); end.

program ssd;

  uses crt,graph;

  var   a,a1,a2,a3: integer;

  begin

  clrscr;

  writeln('введите трехзначное число');

  readln(a);

  a1: = a mod 10;

  a2: =(a div 10) mod 10;

  a3: = a div 100;

  writeln('      ',a1,a2,a3);

  readkey;

end.

var s: string;

i,j,k: integer;

unique: boolean;

begin

  for i : = 1000 to 9999 do

  begin

        s : = str(i);

        unique: =true;

        for j: = 1 to length(s)-1 do

              for k : = j+1 to length(s) do

              begin

                    if s[j] = s[k] then unique: =false;

              end;

        if unique then

            writeln(i);

  end;

end.

 

может длинее, но универсальное.