3, и 4 неправильно. После переименования, или название не стоит точка
а в программном блоке может оканчиваться не только var
Var x,y: real;
var a,b,c,d:integer;
begin
readln(x,y);
if (y<1) then
write ('1')
else write ('0');
if (y<-x) then
write ('1')
else write ('0');
if sqr(x)+sqr(y)<1 then
write ('1')
else write ('0');
if sqr(x-1)+sqr(y)<1 then
write ('1')
else write ('0');
<span>end.</span>
<span>Наука о методах обеспечения конфиденциальности "криптография"
1024*768*16=12 582 912 бит (1 536 Кбайт)</span>
#include <iostream>
int main()
{
int
days,
sale;
float sum = 0.0f;
std::cout << "Введите количество дней, скидку, сумму(в долларах): ";
std::cin >> days >> sale >> sum;
sale /= 100;
for(int i = 0; i < days; i++)
{
sum += 3; // прибавляем 3$
sum += sum * sale; //прибавляем процент от суммы
}
std::cout << "Итоговая прибыль равна = " << sum << std::endl;
}