Pascal. Первые шаги в программирование. Файлы для Pascal ABC.NET

Program Zadacha_1;

var a,b:real;

sum,razn,umn,del:real;

begin

Writeln ('Введите два числа');

Readln(a,b);

sum:=a+b;

razn:=a-b;

umn:=a*b;

del:=a/b;

writeln('Сумма чисел = ',sum);

writeln('Разница чисел = ',razn);

writeln('Произведение чисел = ',umn);

writeln('Деление чисел = ',del:9:2);

end.

Program Zadacha_2;

const b = 1.0699;

var a:real;

versta:real;

begin

Writeln ('Программа-конвертер из вёрст в километры. ');

Writeln (' ');

Writeln ('Напишите расстояние в вёрстах:');

Readln(a);

versta:=a*b;

writeln('В ',a,' вёрстах ',versta,' километров.');

end.