1 Как загрузить Turbo Pascal? 2 Как завершить работу с Turbo Pascal?
3 Как выделить фрагмент программы?
4 Какие действия редактора предусмотрены для выделенного фрагмента?
5 Как сохранить текст программы на диске?
6 Как сохранить тот же текст программы с новым именем?
7 Как сохранить тот же текст программы на дискете?
8 Какие варианты просмотра результатов на экране предусмотрены в языке Turbo Pascal?
9 В чем назначение комментария?
10 Как запустить программу на решение?
11 Какие средства Turbo Pascal предназначены для отладки программ?
12 Объяснить назначение клавиш , , при работе в среде
Turbo Pascal.
13 Перечислить этапы решения задачи с ввода программы до просмотра результатов

Паскаль

Откомпилирован: (Pascal ABC)

program z1;
uses crt;
var
   n: integer;
   i: integer;
begin
    write(' Введите n :  ');
    readln(n);
   
    for i := 1 to n do
    begin
         writeln(' Число:',i,' Степень:', i *i);
    end;
end.

Си

Откомпилирован: (DEV Cpp)

#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include <math.h>

int main()
{
 int n = 0;
 
 printf("\n Vvedite n:  ");
 scanf("%d", &n);

 printf("\n Chislo | Stepen");
 for(int i = 1; i < n; i++)
 {
         printf("\n %5d  |%5d ", i, i * i);
 }

 getch( );

 return 0;
}

Язык СИ (Откомпилирован и проверен был в Dev-C++)

#include <stdio.h>
#include <stdlib.h>
#include <conio.h>

int main()
{
    int a, b, c;
    printf("\n Vvedite 3 chisla :  ");
    scanf("%d" "%d" "%d", &a, &b, &c);
   
    if (a > b && a > c) printf("\n a = %d", a);
    if (b > c && b > a) printf("\n b = %d", b);
    if (c > b && c > a) printf("\n c = %d", c);
    if (a == b && a > c) printf("\n a = %d b = %d", a, b);
    if (a == c && a > b) printf("\n a = %d c = %d", a, c);
    if (b == c && b > c) printf("\n b = %d c = %d", b, c);
    if (a == b && a == c) printf("\n a = %d b = %d c = %d", a, b, c);

 printf("\n\n press klavishy... ");
 getch( );

 return 0;
}

Паскаль (Откомпилирован и проверен был в Pascal ABC)

program z1;
uses crt;
var a, b , c: integer;

begin

write('Vvedite 3 chisla:  ');
readln(a, b, c);

if (a > b) and (a > c) then writeln(' a = ', a);
if (b > c) and (b > a) then writeln(' b = ', b);
if (c > a) and (c > b) then writeln(' c = ', c);
if (a = b) and (a > c) then writeln(' a = ', a, ' b = ', b);
if (a = c) and (a > b) then writeln(' a = ', a, ' c = ', c);
if (b = c) and (b > c) then writeln(' b = ', c, ' c = ', c);
if (a = b) and (a = c) then writeln(' a = ', a, ' b = ', b, ' c = ', c);

end.